object MCEnhancedListBoxEditorDialog: TMCEnhancedListBoxEditorDialog Left = 198 Top = 98 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Choose labels' ClientHeight = 255 ClientWidth = 365 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter TextHeight = 16 object SrcLabel: TLabel Left = 8 Top = 8 Width = 94 Height = 13 Caption = 'Available labels:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False IsControl = True end object DstLabel: TLabel Left = 192 Top = 8 Width = 139 Height = 13 Caption = 'Ordered selected labels:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False IsControl = True end object IncludeBtn: TSpeedButton Left = 160 Top = 32 Width = 24 Height = 24 Hint = 'Add' Caption = '>' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False OnClick = IncludeBtnClick IsControl = True end object IncAllBtn: TSpeedButton Left = 160 Top = 64 Width = 24 Height = 24 Hint = 'Add all' Caption = '>>' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False OnClick = IncAllBtnClick IsControl = True end object ExcludeBtn: TSpeedButton Left = 160 Top = 96 Width = 24 Height = 24 Hint = 'Remove' Caption = '<' Enabled = False Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False OnClick = ExcludeBtnClick IsControl = True end object ExAllBtn: TSpeedButton Left = 160 Top = 128 Width = 24 Height = 24 Hint = 'Remove all' Caption = '<<' Enabled = False Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False OnClick = ExcAllBtnClick IsControl = True end object SpeedButton1: TSpeedButton Left = 336 Top = 24 Width = 25 Height = 25 Hint = 'Move item up' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333 3333333333777F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000 3333333777737777F333333099999990333333373F3333373333333309999903 333333337F33337F33333333099999033333333373F333733333333330999033 3333333337F337F3333333333099903333333333373F37333333333333090333 33333333337F7F33333333333309033333333333337373333333333333303333 333333333337F3333333333333303333333333333337333333330000} NumGlyphs = 2 OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 336 Top = 48 Width = 25 Height = 25 Hint = 'Move item down' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337F33333333333333033333333333333373F333333333333090333 33333333337F7F33333333333309033333333333337373F33333333330999033 3333333337F337F33333333330999033333333333733373F3333333309999903 333333337F33337F33333333099999033333333373333373F333333099999990 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F333333333333000333333333333377733333330000} NumGlyphs = 2 OnClick = SpeedButton2Click end object OKBtn: TBitBtn Left = 83 Top = 220 Width = 77 Height = 27 Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 183 Top = 220 Width = 77 Height = 27 Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object SrcList: TListBox Left = 8 Top = 24 Width = 144 Height = 185 Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 MultiSelect = True ParentFont = False Sorted = True TabOrder = 2 IsControl = True end object DstList: TListBox Left = 192 Top = 24 Width = 144 Height = 185 Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 MultiSelect = True ParentFont = False TabOrder = 3 IsControl = True end end